home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / list.ged < prev    next >
Encoding:
Text File  |  1996-01-19  |  2.0 KB  |  96 lines

  1. /* $VER: 1.0, ©1996 Dietmar Eilert. Create empty list */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  9.  
  10. if (RC ~= 0) then
  11.     exit
  12.  
  13. OPTIONS FAILAT 6                            /* ignore warnings         */
  14.  
  15. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  16.  
  17. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  18.  
  19. 'QUERY DOC VAR=DOC'
  20.  
  21. 'FIX VAR=DOC'
  22.  
  23. 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"'
  24.  
  25. 'NAME NEW=' || RESULT
  26.  
  27. 'REQUEST TITLE="Create new list" BODY="Choose a list type" BUTTON="!1. 2. 3.|· · ·|Text|_Cancel" VAR=TYPE'
  28.  
  29. if ((RC = 0) & (RESULT ~= 0)) then do
  30.  
  31.     'REQUEST TITLE="Create new list" LONG BODY="Number of list items..." MIN=1 MAX=255 VAR=ITEMS OLD=10'
  32.  
  33.     if (RC = 0) then do
  34.  
  35.         if (TYPE = 1) then
  36.             MARKER = "OL"
  37.  
  38.         if (TYPE = 2) then
  39.             MARKER = "UL"
  40.  
  41.         if (TYPE = 3) then
  42.             MARKER = "DL"
  43.  
  44.         'INSERT LINE'
  45.         'INSERT LINE'
  46.         'DOWN'
  47.         'TEXT STAY T="<'  || MARKER || '>"'
  48.         'DOWN'
  49.         'INSERT LINE'
  50.         'TEXT STAY T="</' || MARKER || '>"'
  51.  
  52.         'PING SLOT=0'
  53.  
  54.         do ITEM = 1 to ITEMS
  55.  
  56.             'INSERT LINE'
  57.  
  58.             if (TYPE = 1) then
  59.                 'TEXT STAY T="<LI> text"'
  60.  
  61.             if (TYPE = 2) then
  62.                 'TEXT STAY T="<LI> text"'
  63.  
  64.             if (TYPE = 3) then do
  65.  
  66.                 'TEXT STAY T="<DT> term"'
  67.                 'DOWN'
  68.                 'INSERT LINE'
  69.                 'TEXT STAY T="<DD> definition"'
  70.             end
  71.  
  72.             'DOWN'
  73.         end
  74.  
  75.         'PONG SLOT=0'
  76.  
  77.         'GOTO STEP=5'
  78.  
  79.         'REQUEST STATUS="Edit the list text"'
  80.     end
  81. end
  82.  
  83. /* ---------------------------- END OF YOUR CODE --------------------- */
  84.  
  85. 'UNLOCK' /* VERY important: unlock GUI */
  86.  
  87. exit
  88.  
  89. SYNTAX:
  90.  
  91. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  92.  
  93. 'UNLOCK'
  94.  
  95. exit
  96.